home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / sid-mlty.arc / SID MULTI-PLAY (.txt)
Commodore BASIC  |  2009-10-10  |  5KB  |  34 lines
  1. 10 REM MPLAY BY CRAIG CHAMBERLAIN 10/85
  2. 20 REM (null)RIGHT 1985 ALLIANCE SOFTWARE
  3. 30 REM TYPE RUN 100 FOR INSTRUCTIONS
  4. 40 REM PLEASE DO NOT MODIFY THIS FILE
  5. 50 SYS 3760
  6. 100 PRINT"[147][144]":POKE53280,15:POKE53281,15
  7. 110 FORK=1TO3:PRINT"[147]":READL:FORJ=1TOL:READS$:PRINT" "S$:NEXT
  8. 120 PRINT:PRINT" (PRESS ANY KEY)":WAIT 198,15:GETK$:NEXT:RUN
  9. 800 DATA21,"[211][201][196][208][204][193][217][197][210] [205][213][204][212][201][208][204][193][217]","BY [195]RAIG [195]HAMBERLAIN",
  10. 801 DATA"[212]HIS IS AN AUTOPLAYER FOR","THE [211]IDPLAYER MUSIC SYSTEM.",
  11. 802 DATA"[212]HE PROGRAM PLAYS ALL SONGS CREATED"
  12. 803 DATA "USING THE [211]IDPLAYER [197]DITOR FOUND IN
  13. 804 [131]"THE BOOK ATNLL ATNBOUT THE LENOMMODORE 64,
  14. 805 DATA"[214]OLUME [212]WO, PUBLISHED AND SOLD ON","DISK BY [195]OMPUTE! [194]OOKS.",
  15. 806 DATA"[213][211][197] [195][213][210][211][207][210] [203][197][217][211] [212][207] [208][207][211][201][212][201][207][206] [193][210][210][207][215]",
  16. 807 DATA"[198]1 [211][197][204][197][195][212] [207][210][160][195][193][206][195][197][204] [193] [211][207][206][199]","[198]3 [211][197][204][197][195][212] [193][204][204] [210][197][205][193][201][206][201][206][199] [211][207][206][199][211]
  17. 808 [131]"ASC4 LENATN(null)LENVAL(null) ATN(null)(null) (null)(null)(null)CHR$(null)","ASC5 (null)VAL(null) STR$RIGHT$(null)(null) STR$RIGHT$(null)VALLEN(null)(null)(null)(null)"
  18. 809 [131]"ASC7 (null)(null)ATN(null) (null)(null)(null)CHR$(null) RIGHT$(null) (null)(null)STR$VAL(null) (null)VAL(null)VALLEN(null)VALSTR$",,"(null)VALVAL (null)RIGHT$STR$(null)VAL(null)(null)#2 ASC(null)(null) (null)(null)(null)VAL RIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null)"
  19. 810 [131]20,"RIGHT$N ADDITION TO (null)IDPLAYER,","(null)OLUME (null)WO CONTAINS SECTIONS ON...",
  20. 811 [131]"* ATNDVANCED PEEKATN(null)RIGHT$LEN","  (STR$VALASC, (null)(null)VAL(null), LEN(null)(null)(null)VAL, (null)ATNRIGHT$(null), (null)(null)(null), ETC.)",
  21. 812 [131]"* PEEKITMAPPED CHR$RAPHICS VALXTENSIONS","  (WITH NEW STATEMENTS ADDED TO
  22. 813 DATA"  [194][193][211][201][195], INCLUDING FAST [198][201][204][204] AND","  [211][200][193][208][197] DRAWING STATEMENTS)",
  23. 814 DATA"* [211]PRITE [195]ONTROL [211]YSTEM","  (WITH CONTINUOUS SPRITE MOTION,
  24. 815 [131]"  JOYSTICK CONTROL, AUTOMATIC SHAPE"
  25. 816 [131]"  CHANGING, AN EDITOR, AND MORE -","  SPRITE ANIMATION WITHOUT A
  26. 817 DATA"  SINGLE [208][207][203][197] STATEMENT!)",,"[193][204][204] [212][200][197] [213][212][201][204][201][212][201][197][211] [210][213][206] [207][206] [193] [195]128
  27. 818 [131]"RIGHT$(null) LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 VAL(null)(null)(null)ATN(null)RIGHT$(null)(null) (null)(null)STR$VAL.
  28. 820 DATA20,"[193][204][204] [193][194][207][213][212] [212][200][197] [195][207][205][205][207][196][207][210][197] 64: [214][207][204][213][205][197] [212][215][207]","BY [195]RAIG [195]HAMBERLAIN",
  29. 821 DATA"[198]ROM [195][207][205][208][213][212][197]! [194]OOKS",,"$16.95  ([196][201][211][203] $12.95)",
  30. 822 DATA"[201][211][194][206] 0-942386-45-0",,"[193]T YOUR LOCAL BOOKSTORE",
  31. 823 DATA"[207]R CALL TOLL FREE 1-800-334-0868",,
  32. 824 DATA"[217]OU DON'T HAVE TO BUY","A WHOLE NEW COMPUTER...",
  33. 825 DATA"[193]LL YOU NEED IS [214]OLUME [212]WO!",,
  34.